home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD005b.dsk / APPLEBACUS.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  36 lines
  1. 1  REM  COPYRIGHT 1980 JOHN BEIDLER
  2. 5  CLEAR : HOME 
  3. 6  GOSUB 10000
  4. 7  GOSUB 50
  5. 8  GOSUB 100
  6. 25 D$ = "<CTRL-D>"
  7. 30  PRINT D$;"RUN ABACUS.PART.2"
  8. 40  END 
  9. 50  VTAB 10: HTAB 10: PRINT "A P P L E B A C U S": VTAB 12: HTAB 5: PRINT "COPYRIGHT 1980 BY JOHN BEIDLER"
  10. 51  VTAB 14: HTAB 10: PRINT "ALL RIGHTS RESERVED"
  11. 55  FOR I = 0 TO 100: GOSUB 56: NEXT I: RETURN 
  12. 56  POKE 6,20 +20 * RND(1)
  13. 57  POKE 7,15 +10 * RND(1): CALL 768: RETURN 
  14. 100  HOME 
  15. 110  VTAB 10: PRINT "LIST INSTRUCTIONS ?(Y/N) ";: GET A$: PRINT A$
  16. 120  IF A$ < >"Y"  THEN  RETURN 
  17. 150  HOME 
  18. 160  PRINT : PRINT  SPC( 15);"APPLEBACUS": PRINT 
  19. 170  PRINT "THE BLINKING CURSOR LOCATES THE POSITION"
  20. 180  PRINT "WHERE THE NEXT DIGIT YOU ENTER WILL BE"
  21. 190  PRINT "ADDED.": PRINT 
  22. 200  PRINT "AFTER YOU HAVE ENTERED ALL THE DIGITS"
  23. 210  PRINT "IT WILL WAIT FOR YOU TO ENTER'L' OR 'R'"
  24. 220  PRINT "BECAUSE ON AN ABACUS THE ADDITION CAN BE";
  25. 230  PRINT "CARRIED OUT LEFT TO RIGHT OR VISA VERSA"
  26. 240  PRINT : PRINT "WHILE THE BEADS ARE MOVING PRESS"
  27. 250  PRINT "ANY KEY (EXCEPT RESET) TO STOP THE"
  28. 260  PRINT "ACTION - AND PRESS ANY KEY TO CONTINUE"
  29. 270  PRINT : PRINT "HAVE FUN"
  30. 280  PRINT : PRINT "PRESS ANY KEY TO BEGIN"
  31. 290  GET A$: PRINT A$
  32. 299  RETURN 
  33. 10000  REM    SOUND ROUTINE 
  34. 10010  POKE 768,173: POKE 769,48: POKE 770,192: POKE 771,136: POKE 772,208: POKE 773,4: POKE 774,198: POKE 775,7: POKE 776,240: POKE 777,8
  35. 10020  POKE 778,202: POKE 779,208: POKE 780,246: POKE 781,166: POKE 782,6: POKE 783,76: POKE 784,0: POKE 785,3: POKE 786,96
  36. 10030  RETURN